unit App;

interface
uses
  DbHelper;
type
  TAccountInfo=record
    UserID:integer;
    UserName:string;
    TrueName:string;
    DepartID:integer;
    DepartName:string;
  end;
var
  db:Tdbhelper;
  account:TAccountInfo;

implementation
  function PadLeft(str:string;len:integer;chr:Char):string;
  var
    n:integer;
  i: Integer;
  begin
    n:=Length(str);
    if n<Len then
    begin
      for i := 0 to len-n do
      begin
        str:=chr+str;
      end;
    end;
    Result:=str;
  end;
  function PadRight(str:string;len:integer;chr:Char):string;
  var
    n:integer;
  i: Integer;
  begin
    n:=Length(str);
    if n<Len then
    begin
      for i := 0 to len-n do
      begin
        str:=str+chr;
      end;
    end;
    Result:=str;
  end;
end.
